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LIST OFFICERS A Final Word 
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Pres. Harvey Rait My Name is Fred Stern and I am the 
V. P. Bob Gilder Editor of this edition of Listing. 
Tres. Robert Malloy 
Cor. Sec. John Pazmino Meeting Minutes 
Editor Fred Stern 
Libr. Tom Skapinski Reported by Fred Stern 

The meeting was called to order by 
Please send inquiries to: Harvey at 2 PM. 
LIST 
Mr. Harvey Rait In the mail, we received one 
5 Peri Lane, correspondence. Fred will answer. 


Valley Stream, М. Y. 11581 
We only received two newsletters 


Please send submissions to: from the exchange. 

Mr. Frederic Stern We were sadden to receive our last 

Р. О. Box 264, issue of Sinc-Linc. It was one of 

Holbrook, М. Y. 11741 best Timex newsletter from Canada. 
It will be missed. 

Coming Events: We had a roundtable discussion about 
the John Oliger EPROM Burner and how 

LIST Meeting October 16, 1994 to use it with the TS 1000. 

- Special Notice - January is renewal time, and it is 

coming up soon. Don’t forget to 

The next meeting will be held at: renew your membership to LIST. 

The Ice Cream Dispensary 

(Harveys Store) Our next meeting will be on Nov. 

334 Dogwood Avenue, 13, 1944 at The Ice Cream Dispensary. 


Franklyn Square, N. Y. 
Tel: 516-486-1090 

HAVE А VERY HAPPY THANKSGIVING TO 
Directions: Southern State Parkway ALL LIST MEMBERS AND THEIR FAMILIES. 
to exit 17, North (Hempstead Ave.) 
Go to first traffic light, 
Left turn on to Cornwall, 
Next traffic light, bear right on 
to Dogwood Avenue, Go one mile to 
the Ice Cream Dispensary, in a small 
shopping center on the left side of 
the road. 
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“I’m the only political candidate to take a stand on 
computer operating systems.” 


~ — QL CORNER 


I received a call from Bob Dyl stating that he has resigned as the USA, Eastern 
QUANTA sub-librarian. The work load for IQLR is extremely demanding and now that 
IQLR has it’s own software library. Bob felt that it would be considered as a 
conflict of interest if he remained in this position. 


Bob requested that I take over this position and that he had recommended me to 
QUANTA. QUANTA has now endorsed this change for me to be YOUR sub-librarian. 
When library updates are received, they will appear in IQLR and LIST's monthly 
QL Corner and in UPDATES. I can accommodate QUANTA members with almost any disk 
drive size and density: 3.5 inch disks 720K, 1.4M and 3,2M, and 5.25 inch disks 
in either 360K DD and 720K QD. 


Every once in a while one of members has a QL with an intermittent problem. Most 
times, I just lever up all of the ICs in sockets, press them down and the QL is 
up and running. However, this fix is only temporary since the QL's 1С leaf 
spring sockets are of poor quality. The best solution for this problem is to 
insert machine pin IC sockets into the original QL IC sockets. Normally 40 pin 
machine pin sockets sell for $1.00 - $1.59 each. There is a source for high 
quality machine pin sockets at a low price, B. G. MICRO, INC. The cost for 40 
pin machine pin sockets are 3 for $1.00. In fact, they sell 8, 14, 16, 18, 20, 
24, 28 pin sockets for the same price, 3/$1.900. If you require two 28 pin 
sockets for the roms, you should purchase 4@ pin sockets and cut them down to 
size. | 

For those members who like to prototype let’s say, a rom switch board, these В. 
G. Micro’s machine pin sockets have extra long pins and the socket base is also 
half the thickness of other sockets which provides the user with high quality 
low profile sockets at a third of the normal price. The only catch is that they 
require a $10.00 minimum. Perhaps several QL users could get together for a 
bulk purchase. 


Digital Precision has announced in their ad in IQLR, that they are offering a 
software deal to QL users; approximately 50 programs for '149.00 including 
shipping charges. Each program has a manual supplied on to disk. This saves 
Digital Precision money on postage. Апа if you aren't interested in some of the 
Programs, you need not print out the manuals. This offer will only be in effect 


for two weeks. I had placed my order as soon as I had received the 
latest issue of IQLR. DP accepts credit cards. I am sure that all files are 
Zipped, again, to save on postage...... we will see. 


This past month I have been busy prototyping several ROM switch’s for my PC 
cased QUs. I duplicated the Minerva style pc board for each ROM adding a 10K 
resistor at Eprom pin #22 for +5V DC. The trace which joins the outer pin #22 
of the Eprom board to pin #8 of the HCT10 has been opened. Three leads are 
soldered from each of these points to a DPDT switch. See the following diagram: 


MINERVA ROM SPDT Switch JSU ROM 
t EBMDOS NUN Nm o озгт=те=т=е= #8, 74HCT10O 
10K ohm 
#22 Ергот=—=—==т====== o Sal арнай нандай d #22, Eprom 
#8, 74HCT10--------- o Gee N JN UIN mm rio *5VDC 
10K ohm 
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Give your power 
pills more punch 


EEE Ee | EE EEE [UNI 
Tony Rickwood dem- 
onstrates how much 
faster a game will work 
when Basic is replaced 
by machine code in 
key areas. 


F YOU have followed this 

series on machine code so far, 
you will by now, be raring to go 
with some practical games appli- 
cations. Most commercial games 
are 100% machine coded for 
speed and animation quality, but 
it would be much too ambitious 
for us to present and explain what 
might'be an enormous assembler 
listing in these few pages. 

А much more practical ap- 
proach is to see how a traditional 
maze type game, written in Basic, 
can be made much more fun to 
play by replacing some of the 
routine basic programming with 
machine code. Admittedly, maze 
games are a bit old hat now, but 
the game I will be presenting 
here has been specially written to 
give readers a rare opportunity to 


see, at a glance, just how much 
better than Basic m/c really is. 

At the touch of a key, you will 
be able to get your Spectrum to 
throw out a large chunk of Basic 
and call in a m/c routine instead. 
See for yourself how much more 
energy a diet of power pills and 
m/c will give Pacman and the 
four ghosts. 

First, enter and run Program 
one which POKEs 199 bytes of 
machine code into memory, start- 
ing at location 64000 (the game is 
designed for the 48K Spectrum). 
As a wrong number may cause 
the computer to crash, a check is 
made to make sure data is en- 
tered correctly. When you have 
got the "data entry o.k." mes- 
sage, SAVE program 1 to tape. 


f Now enter Program two. When 
ntering a long Basic program, I 
find that the best plan is to start by 
entering and testing the part 
which sets up the User Defined 
Graphics. This is contained in 
lines 6000 onwards. Now RUN 
this part (do not worry about the» 
RETURN WITHOUT GOSUP" 
message) and go into graphics 
mode (Caps/9). Pressing any let- 
ter from a to u will demonstrate 
that all 21 UDGs have been used. 
Graphic letters a to n are for the 
maze walls, o to и are for Pacman 
(moving їп four directions), 


ghosts, power pills, and dots. 


The next part to enter and 
check is the subroutine which 
sets up the screen (in this case, 
by printing the maze). Lines 5090- 
8040 do this. With the graphics 
already set up in memory, you 
will see the maze emerge as you 
enter the two PRINT statements, 
which wil help you to correct 
any mistakes as they are made. 
Now type RUN 6000 to make sure 
that the maze is printed complete 
with dots and power pills. You 
should have everything in white 
on a black background. 


HIM . 
$. 


Im 


As the way the program works 
depends on different objects hav- 
ing different colours, these are 
best put into the PRINT state- 
ments using colour control char- 
acters. The colours you MUST 


10 REM Machine Code Setup for 
Ghostchase € Tony Rickwood 

20 CLEAR’ 63999: LET s»0: FOR i 
-64000 TO 64198: READ n: POKE i, 
n: LET s=s¢n: NEXT i 

ЗО READ sum: IF s <› sum THEN 
PRINT, "error in data entry" "ch 
eck line 40": STOP 

40 DATA 97,107,98,108,99,109,1 


00,110, 101,111,102, 112, 103, 113, 1 
04, 114, 120, 121, 97, 98, 99, 100, 101, 
102,103,104,0,221,33,0,250,6,8,2 
05, 153, 250, 126,87, 221,35, 205, 153 
‚ 250, 114, 221,35, 16, 241, 205, 153,2 
50,70, 221,35, 205, 153, 250, 78, 221, 
35, 221, 126, 0, 254, 0, 200, 205, 153, 2 
50, 94, 221, 35, 205, 153, 250, 86, 221, 
43, 120, 147, 40, 28, 56, 11, 28, 205, 16 
9,250,254 

5О DATA 6,32,14,29,24,15,29,20 
S5, 169, 250, 254, 6, 32, 3, 28, 24, 4, 205 
9 153, 250, 115, 221, 35, 121,146, 40,2 
8,56, 1 1, 20, 205, 169, 250, 254,6, 32, 
14, 21,24, 15, 21,205, 169, 250, 254, 6 
r 32, 37 20, 24, 4, 205, 153, 250, 114,22 
1,35, 205, 169, 250, 54, 6, 24, 163, 197 
242r 75, 92, 15 200, 0, 221, 126,0, 237, 
177,35, 35,193, 201, 213, 197, 33, 0,8 
8, 75, 90, 22,0, 6, 5, 203,35, 203,18, 1 
6, 250, 123, 137, 48,1, 20, 95, 25, 126, 
193, 209, 201, 209, 201, 22690 

60 PRINT "Data entry o.k"?! "m/c 
now ready for running": STOP 

70 SAVE "GCODE" CODE 64000,1399 


INPUT "Basic or e/c(b/am)?"; 


Si IF g$ <> *b" AND g9 <> “m” 
80 TO зо 

60 GO SUB 1000 

100 REM Initialize control vari 


110 LET ae3: LET bei: LET ce27: 
LET dei: LET ee3: LET f%19: LET 
97271: LET h*19: LET x=15: LET y 
#10 

120 LET keas LET !*b: LET mac; 
LET neds LET ome: LET pef: LET д 
eg: LET r=h 

130 RETURN : 
1000 REM Main Control! Routine 
1005 LET diel: LET s»s*1 

1010 LET xxex: LET уузу; PRINT 
AT yy,xxj" " 

1020 PRINT INK 1j OVER 13 AT b, 
ap"T"s INK 2; AT d,cj "T", INK 3) 
AT f,ep"T",j INK 4; AT hogs "Tt 
BEEP .003,45 

1025 IF  ATTR (yx) <= 4 THEN G 
O TO 3000 

1030 LET xex-( INKEYS 9"5*)«( IN 
KEYS 9"8"): LET y»y*( INKEYS ="6 
*)-K INKEYS ="7") 

1035 LET di*dit(xxex)£(yymy)*(x5 
xx)*2EX(x€xx) *3£CyCyy)*4E£CyDyy) 
1036 IF xei1 THEN LET x28 

1037 If х=29 THEN LET х=2 

1040 IF ATTR (y,x)*-6 THEN LET 
x=xx} LET yeyys GO TO 1070 

1055 IF ATTR (y,x)*-5$ THEN LET 
s=s+10: FOR 1*1 TO 10: BEEP .005 
»201 BEEP .005,30: NEXT i: GO TO 
1070 

1060 IF POINT (34x28, 171-8%y)=1 
THEN LET s»s*1: BEEP .005,30 
1070 PRINT AT 21,8;8: PRINT AT 
yo xs "OPOR" Cdi) 

1080 IF ATTR (у,х) <= 4 THEN G 
о TO 3000 

1082 IF g$*9"a" THEN RANDOMIZE 
USR 64027 

1090 IF g$e"b" THEN GO SUB 4000 
1100 PRINT OVER 1; AT !,kj"T*; 
AT n, mp "T", AT pior" T", AT reqs” 
т" 

1110 GO TO 1010 

2000 REM Screen Cleared 

2010 GO SUB 100 

2020 GO SUB S000 

2030 GO SUB 1000 

2040 RETURN 

3000 REM Pacman eaten 

3010 LET vev-1: PRINT AT 21,28; 
v 

3020 FOR i=1 TO 20: BEEP .01,20: 
BEEP .01,30: NEXT i 

3030 IF v90 THEN TO 3040 
3035 PRINT INK 7, OVER 13 AT b, 
as°T"33 AT de,c4, "T", AT f,esr"T"4, 
AT h:ig; "T" 

3036 GO SUB 100 

3037 GO SUB 1000 

3040 CLS : PRINT AT 10,0;”YOU S 
CORED "js; AT 11,0; "ANOTHER GAME 


?Cy/n)" 
3050 IF INKEYS ="" THEN GO TO 
3050 

3060 If  INKEY$ "n" THEN STOP 
3070 RUN 


4000 REM Ghost Control 

4010 LET ksa: LET ivb: LET macı: 
LET ned: LET ose: LET p=f: LET q 
=g: LET r=h 


4020 LET а=а+(х>а)—(х<а): IF АТ 
TR (b a)=6 THEN. LET ask 

4030 LET b=b+(y>b)-(y<b): IF AT 
TR (b,a)@6 THEN LET b=! 

4040 IF a <> k OR b <> | THEN Р 
RINT OVER 1; INK 6; AT b,aj" * 
4050 LET cec*(x»c)-(x€c2os IF AT 
TR (d,c)9& THEN LET с=з 

4060 LET dede(y»do-(yXdos IF АТ 
TR (d,c)w-& THEM LET den z 
4070 IF c <> @ OR d <> n THEN P 
RINT OVER 1, INK 6; AT docs” * 
4080 LET e*e*(x»e)-(OxCo)1 IF AT 
TR (f,e)9-& THEN LET ето 

4090 LET fefeCy»f)-(yCf)1 IF AT 
TR (f,e)9»6 THEN LET fep 

4100 IF e <> o OR f <> p THEN P 
RINT OVER i; INK бу AT frej” " 
4110 LET g*9g*(x»g)-(xXgo)s: IF АТ 
TR (h,g)"»6 THEN LET g=q 

4120 LET h9-*Cy»h)-C(y€h01 IF AT 
TR (h,g)e& THEN LET her 

4140 RETURN 

$000 REM Print Maze 

$005 PAPER Оз BORDER O: INK 7: C 


TAEA S e Адый, 
BSSSSSSSSSSSSBSSSS 
BSCADSCANAAISGESJAA 
BSB BSB BSSSSSSSSS 
BSEAF SEAF SJAANAAIS 
BSSSSSSSSSSSSBSSSS 
BSJAISJANAAISGSJAA 
BUSSSSSSBSSSSSSSSS 
EAAAAADSBSCAISJADS 
AAAAAAF SGSBSSESSBS 
SSSSSSSSSSBSSSSSBS 


LS 

$010 PRINT * 
AAAAAAAAD"* = 
8SSSSSSSB"'* 
NADSCADSB"' " 
B BSB BSB"*'* 
EAFSEAFSB""'" 
SSSSSSSSB"'"* 
NAISJAISB"'" 
BSSSSSSUB"'" 
BSCAAAAAF "' = 
BSSEAAAAAA*' * 
8585855558 " 
3020 PRINT 3° 
SHSCAAAAAA" ' = 
SGSEAAAAAD"* " 
SSSSSSSSUB"'"* 
AA^AISCAISB"'" 
SSSSSBSSSP"'"* 
SHSJAFSJAL"'* 
SBSSSSSSSB"'* 
AMAAAAAISB"'" 
SSSSSSSSSB"'" 
AAA AA AAAAF " 
5030 PRINT AT 21,2; "SCORE"; AT 
21,22; "LIVES "jv 

53040 RETURN 

6000 REM UDG Setup 

6010 FOR i= USR “a” TO USR “u"+ 
71 READ js POKE i,j: NEXT i 

6020 DATA 0,255, js jr jo jo jr 

6030 DATA 126» ji jo jo jo jr do d 

6040 DATA 0.31.63.127. 55 5, 3, 12€ 
6050 DATA 0,248,252,254, j, j^ j^ 12 
6 

6060 DATA 1265127,» ),),63,31,О 
6070 DATA 126,254, j» j» jr 252, 248, 
o 

6080 DATA 126+ ), js jr 4»60,24,0 
6090 DATA 0, 24,60, 126, js jr jn j 
6100 DATA 0, 248, 252, 254, j, 252, 24 
8,0 

6110 DATA 0,31,63, 127, j,63,31,0 
6120 DATA 126,127, jo j» jojo j» 126 
6130 DATA 126,254, 4545 j» 4» j» 126 
6140 DATA 126,235, jo js jr jo jo O 
6150 DATA 0,255, js je j» j» jn 126 
6160 DATA 62,127,248,240, j, 248,1 
27,62 

6170 DATA 124,255,31,15,),31,254 
2124 

6180 DATA 665,195, §,231, 255, j, 126 
»60 

6190 DATA 60,126,255, j: 231,195, j 
766 

6200 DATA 0,0,0,24,24,0,0,0 
6205 DATA 60, 126,219, 255, 255, 255 
#165, 165 

6210 DATA 0,0,60, 126, j,60,0,0 
6220 RETURN 


AAAAAADBHSBSSSSSB 
CAAAAAF SGSEAANAAF 
BUSSSSSSSSBSSSBSSS 
BSJADSJAAAAISGSJA 
BSSSBSSSSSSSSSS5SS 
KAISEAISHSJAANAAI 
BSSSSSSSBSSSSBSSS 
BSJAAAAAMAAISGSJA 
BSSSSSSSSSSSSSSSS 
EAAAAAAAAMABABAA A 


"Пп 


use are: WALLS=yellow, DOTS 
=white, POWER PILLS=cyan. 

The way to put these codes into 
the PRINT statements is de- 
scribed in Chapter 16 of the Spec- 
{тит manual, but to get you 
Started, first bring down line 5010 
with edit. Run the cursor to just 
past the quotes and change to 
extended mode (caps shift/sym- 
bol shift). Now hold the Capitals 
key and press key 6. You will see 
that everything that follows is 
now printed in yellow ink. Now 
гип the cursor right by one space 
(to just before the first dot), 
change cursor to Extended 
again, and press Caps/7 to 
Change back to white ink. Con- 
tinue throughout until everything 
is the correct colour. 


Bn EI mi TTL 


IMPORTANT NOTE: The game 
depends on having these colours 
right. It also depends on the two 
exits from the maze being sealed 
to the ghosts (but not to Pacman), 
to allow Pacman to shake them 
off. This is done by putting an 
invisible wall at the two exits by 
printing the blank character posi- 
tions to the left and right of the 
middle row of dots in yellow ink 
with the appropriate colour code 
in line 5010. You will see how this 
works when I explain ghost con- 
trol. 

Now you can enter the rest of 
the program and test it as a 
whole, although it would be a 
good idea to do an intermediate 
SAVE of your work so far. 


When RUNning the whole pro- 
gram, it will begin by asking 
whether you want Basic or M/C? 
This gives you the option of let- 
ting your Spectrum control the 
ghosts, using EITHER the Basic in 
lines 4000-4140 OR by using the 
machine code set up by Program 
one. They do exactly the same 


job, though with a remarkable dif- 
ference in speed. To satisfy your- 
self that these are directly 
interchangeable, look at lines 
1082/1090 which call the appro- 
priate routine according to the 
response to the only prompt 
used. Make sure you give the 
Program а thorough testing in 


are portable in the sense that they 
do not depend on, or affect any- 
thing else, and are also relocata- 
ble to use any available memory 
space. The routine used here ob- 
viously does affect, and is affect- 
ed by, the environment in which 
it operates. So, if you want to 
supercharge a chase routine of 
your own (not necessarily of the 
maze variety), you really must be 
able to understand it and adapt it 


— : to your own p 


each mode, although I guarantee 
you will not be using the Basic 
option for very long! 

If you want to keep Ghostchase 
in your library of games, it would 
be a good idea to put the m/é 
itself (not Program one, which 
only sets it up) onto tape immedi- 
ately after your dump of Program 
two. First, get a new dump of 
Program two onto tape with the 


following line added: 15 LOAD 
"GCODE" CODE. И you want 
auto start, then dump by typing 
SAVE "ghost" LINE 1. Assuming 
that the m/c is in memory, dump 
it onto tape using SAVE 
"GCODE" CODE  64000,199. 
LOADing "ghost" will now auto- 
maticaly LOAD the m/c and 
RUN. 

A few words about playing the 
game, as I have not included 
instructions in the program. Pac- 
man control is by cursor keys. As 
usual, eat as many dots and 
power pills (10 point bonus) with- 
out getting cauglit, though you do 
have five lives. A screenful (300 
points) earns you another screen- 


Obviously, you want to know 
how the machine code works, 
because, unlike routines I have 
Presented so far, this one is not 


portable. Special effects m/c rou- 
tines seen previously can be 
used by any Basic program. They 


rogram. 

The key to understanding the 
machine code is the Basic routine 
in lines 4000-4140. The principle 
is always to get the computer to 
calculate intelligently the new co- 
ordinates of the chaser(s) in order 
to place it nearer the character 
being chased. There are many 
levels of artificial intelligence 
which could be used (to prevent 
the chaser from staying blocked 
for example). Here, though, it is 
simply a matter of getting the four 
ghosts nearer without going 
through walls. Line 4010 starts by 
storing all the old coordinates as 
figure one: 
SE ES dia Mac 


Fig. one 


y 
1 
n 
р 
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Pacman coordinates are called 
x,y. Before calculating new posi- 
tions, current positions must be 
stored. This is to be able to erase 
old ghosts and for re-setting posi- 
tions if a move is invalid. Lines 


4020 and 4030 deal with x and y 
coordinates for the blue ghost 
(a,b). Using x>a and x<a for 
растап to right or left of the 
blue ghost, a is increased or 
decreased by one. i 

Similarly for b in the vertical 


: sense (note: x=a or y-b means 


no change). Both a and b must be 
tested separately to allow the 
ghost to move horizontally, verti- 
cally or diagonally toward Pac- 
man. The only test for a valid 


‘move is that it does not collide 


with a wall. 

No off screen tests are neces- 
sary because the ghosts can 
never get out of the maze. So all 
we need to test is ATTR(b,a)=6 to 
tell the computer that there is a 
(yellow) wall at the new position 


calculated for the blue ghost. If 
true, the position reverts back to 
k and/or 1. Other ghosts are 
handled in the same way. 

What about collision with Pac- 
man and other ghosts? The ‘‘Pac- 


man eaten” condition is picked 
up in the main contro! routine at 
line 1080. Collision with another 
ghost is a bit more subtle. We 
cannot test ATTR(b,a)< =4, for 
example, to see if there is another 
ghost already there, for the 
simple reason that no new ghosts 
can be printed until ALL new 
positions have been calculated. 
Line 4030 solves the problem for 
the blue ghost (4070 and 4100 for 
magenta and green). In effect, 
this line is saying that, if the blue 
ghost has been moved (a< >k) or 
(b< »1) then temporarily PRINT a 
piece of invisible wall OVER the 
new position (to preserve the dot) 
to prevent it from being occupied 
by another ghost. This is only 
temporary while computer con- 
trol is inside the ghost control 
subroutine. 


Soon after control is returned to 
the main program (starting at line 
1000), the ghosts are printed and 
SO overwrite the invisible wall. 
Obviously, no such device is re- 
quired for the green ghost as this 
is the last to be moved. 

Do try to understand thoroughly 
how the subroutine starting at 
line 4000 works. You will then 
have a much better chance of 
understanding the machine coded 
version which I will be explaining 
in the next article. 


Machine code refreshes 
parts Basic cannot reach 


Last month we showed 
how machine code can 
add speed to a Basic 
game. Tony Rickwood 
gives more details. 


TUE. e MEN CECI, 
AST MONTH, I showed how a 
piece of machine code pro- 

gramming could dramatically im- 

prove the speed at which four 

ghosts could chase Pacman. 

Much of the prograinming is still 

in Basic. The purpose of the m/c 

is to replace a Basic subroutine 

by which the computer gives 
chase. 

Why does the m/c make the 
ghosts move so much faster? 

A group of Basic lines such as 
those for ghost control (lines 
4000-4140. see Program 2 in last 
Program Tutor) which are ex- 
ecuted every time a scan is done 
for keyboard control inean a lot of 
processing time is being wasted 
in interpretation. No wonder the 
four ghosts look so tired! The ma- 
chine code gives time a shot in 
the arm by allowing them to es- 
cape the bonds of Sinclair's inter- 
preter! 

To supercharge your own maze 
games. you need to understand 
how my routine works to be able 
to adapt it. I will assume you have 
Programs опе and two from Part 
One on cassette, with the m/c 
also dumped (from Program One) 
and called "GCODE' '. 


What GCODE does 
The bytes of m/c are assem- 


bled from the listing in Figure 1 
using a commercial assembler 
progam. If you really want to 
Start wiiüind your own code or 
adapting other people's, a good 
assembler 1s essential. So forget 


the games for a while and save 
your money for a useful piece of 
software instead! 

Like the Basic subroutine it re- 
places, the assembler listed in 
Figure 1 works on the VARS (var- 
lables) area of memory to access 
and update the ghost coordi- 
nates. Of course, the Basic con- 
ceals how this is done. To 
understand how the assembler 
does it, let us first see how VARS 
is structured. With Program Two 
loaded, add the following lines: 
9000 LET Z = PEEK 23627 + 256 
x PEEK 23628 
9010 FOR I = Z TO Z + 200: 


PRINT I, PEEK I: NEXT I 
Now RUN and, when the maze 
appears, press BREAK and type 
GOTO 9000. You will see a 
screen display of the first 200 
bytes of VARS. The first number 
will be 97. Look at Appendix A of 
the manual and you will see that 
this is the character code for “а”. 
This is the first variable to be 
stored on  RUNning. The 
''0,0,3,0,0" numbers which follow 


represent the initial value of “а”. 
Keep scrolling and you will see 
that VARS has been expanded to 
suit the sequence in which varia- 
bles are met by the program. 
Those of interest are for ghost 
and pacman coordinates, con- 
tained in lines 100-120 of the Ba- 
sic. 


How GCODE works 

Like good Basic programs, good 
assembler is put together from 
building blocks called modules. 
The modules in Figure | are num- 
bered according to sequence of 


. development, as it is usual to de- 


velop subroutines before the 
main program. 
Module 1: DATA (lines 40-60). 


These three lines set up the first 
27 bytes of m/c with the charac- 
ter codes for the variable names. 
You will see that some of these 
appear twice. We know that the 
first part of the MAIN module will 
deal with storing current ghost 
coordinates as old, so we will be 
accessing current, old, current. 
old, etc., for all cight coordinates. 
This order is defined in the first 
two lines of DATA. The second 
part will update the cuirent ghost 
coordinates once pacman coordi 

nates have been read, so only 
current variables appear in the 
third line. ' 


The DEFB mnemonic means 
"DEFine Byte". It is NOT a Z80 
mnemonic because it is not as- 
sembled into operation codes 
like the mnemonics seen so far. 
Instead, it is called an assembler 
directive", used by most assem- 
bler programs. The directive in 
this case is that the assembler 
should decode the variable 
names into character codes and 
fill out as many bytes with these 
as required (except for the zero 
which will be used to mark the 
end of data). 

In essence, DATA tells the CPU 
in advance what character codes 
will be scanned in VARS. Ghost 
and pacman coordinates are ac- 
cessed frequently and frequently 
used data is usually specified in 
this way. 

Module 2: SCAN (lines 840- 
920). This m/c subroutine is the 
real work horse of the routine asa 
whole, and works by scanning 
VARS for a particular coordinate. 
Input data is the character code 
to be scanned or, rather, a point- 
er to tell the CPU where it can be 
found in the DATA. We will use 
IX register pair for this memory 
pointer. 

The output is also a memory 
pointer showing where the value 
of the variable is stored in VARS. 
Choice of registers other than IX 
is dictated by the key instruction 


Figure 1 


10 ;GHOSTCHASE ASSEMBLER 
20 ;by Tony Rickwood 


30 ; 
€16B626C 40 DATA  DEFB "a","k","b", "|", "c^", "gn, "gn, "nn 
656F6670 50 DEFB "e","o","f","p","g","q","h","r* | MODULE 1 
78796162 60 DEFB "x","y","a","b", "c", "d", "e", "f", "ge, "h",O 

70 ; 

80 ;MAIN PROGRAM 

90 ; 

DD21918E 100 LD  IX,DATA 
0608 110 LD в,в 

120 ; 

CD2A8F 170 OLD CALL SCAN 

7Е 140 D AHL) 

57 150 4D р,лА 

DD23 160 INC IX 

CD2A8F 170 CALL SCAN 

72 180 ¿LD (HDD 

DD23 190 INC IX 

10F 1 200 DJN2 OLD 
210 ; 

CD2A8F 220 NEW CALL SCAN 

46 230 tD —B,(HL) 

DD23 240 INC IX 

CD2A8F 250 CALL SCAN 

4E 260 LD Cy CHL? 

DD23 270 INC IX 

DD7EOO 280 NEXT LD A (IX) 

FEOO 290 CP о 

ce 295 RET 2 

CD2A8F 296 CALL SCAN 

SE 300 LD E, CHL) 

DD23 310 INC IX 

CD2A8F 320 CALL SCAN 

56 330 LD  D,(HD 

DD2B 340 xTEST DEC IX 

78 360 LD А,В 

93 380 SUB E 

281C 390 JR 2,YTEST 

380B 400 JR  C,DECX 

1C 410 INCX INC E 

CD3ABF 420 CALL ATTR MODULE 2 

FEO6 430 CP 6 

200E 440 JR = NZ,ENDX 

1D 450 DEC E 

180F 460 JR YTEST 

1D 470 DECX DEC E 

CD3ABF 480 CALL ATTR 

FEO6 490 CP 6 

2003 500 JR — N2,ENDX 

1C S10 INC E 

1804 52 JR YTEST 

CD2A8F $30 ENDX CALL SCAN 

73 540 LD .— (‹н!›,Е 

DD23 $50 YTEST INC IX 

79 570 LD | ^C 

92 590 SUB D 

281C 600 JR — 2,END 

380B 610 JR  C,DECY 

14 620 INCY INC D 

CD3ABF E20 CALL ATTR 

FEO6 640 CP 6 

200E 650 JR NZ,ENDY 

15 660 DEC р ' 

180F 670 JR | END 

15 680 DECY DEC D 

CD3ABF 690 CALL ATTR 

FEDE 700 CP 6 

тооз 710 JR NZ,ENDY 

14 720 INC D 

1804 730 JR END 

CD2A8F 740 ENDY CALL SCAN 

72 750 LD  (HL),D 

DD23 760 END INC IX 

CD3A8F 770 CALL ATTR 

3606 780 LD — (HL) 6 


continued 


820 ; SUBROUTINES 
830 ; 


cs 640 SCAN PUSH BC 
2A4BSC 850 LD  HL,(23627 

01CB800 860 LD  BC,200 

DD7EOO 870 LD A, CIXD 

EDB1 880 CPIR MODULE 3 
23 890 INC HL 

23 S00 INC HL 

C1 910 POP BC 

c9 920 RET 

DS 930 ATTR PUSH DE . 

cs 940 PUSH BC 

210058 950 LD HL,22528 

4B 960 LD: -GE 

SA 970 LD ED 

1600 980 LD D.O 

0605S 390 р B.S 

CB23 1000 MULT SLA E 

CB12 1010 RL D 

10FA 1020 DJNZ MULT 

7B 1030 LD AE MODULE 4 
89 1040 ADD A.C 

3001 1050 JR NC,HLSET 

14 1060 INC D 

sr 1070 HLSET LD Е,А 

19 1080 ADD HL,DE 

7E 1090 LD  A,(HLD 

C1 1100 POP BC 


DE 


at line 880. 

CPIR is a block handling in- 
struction read as ‘‘ComPare, In- 
crease and Repeat". It searches a 
number of bytes of memory (spe- 
cifed in BC) for the first occur- 
rence of a byte (specified in 
register А). HL is used as the base 
address (where we want the 
search to start). It will finish hold- 
ing the address of the byte imme- 
diately following the byte (if 
found). 

Here, the base HL is set to the 
address pointed to by the system 
vanable VARS (line 850). The first 
200 bytes (which we know will 
hold all our coordinate data) are 
to be searched (line 860). The 
byte to be searched out is point- 
ed to by IX (line 870). 

After the CPIR, HL will point to 
the byte after the character code 
of variable. The coordinate value 
itself is two bytes on from this so 
HL must be INCremented twice 
(lines 890-900). 

Module 3: ATTRibute (lines 
930-1120). The output for this sub- 
routine will be the value of the 
attributes at a new ghost position 
(which will be tested for collision 
with a maze wall in the MAIN 
routine). This result will be stored 
in register A. Input is the position 
to be tested and is held in DE 
(D=y, E=x). 


HL is, once again, a memory 
pointer; this time for the attribute 
file (line 950). Lines 960-1020 con- 
vert the y coordinate to the num- 
ber of bytes into the attribute file 
needed to get to the start of the 
row containing the test position. 
This means multiplying y by 32 
(32 bytes for each row). 

For machine code, this has to 


be thought of as multiplying by 
two five times, which is done by 
shifting the bit pattern of the val- 
ue of y five times to the left. As y 
x 32 requires two bytes, lines 
960-980 get x out of the way for 
the moment (LD C,E) so that y can 
go into register E with D=O. 
Lines 990-1020 are a DJNZ loop to 
do the multiplication. The rest of 
the subroutine brings back x and 
adds the result to the start of the 
attribute file. 

Module 4: MAIN (lines 80- 
800). First, our DATA memory 
pointer IX is set to the address of 
the first byte of data. Lines 110- 
200 (OLD) store all the current 
ghost coordinates as old, so that 
old ghosts can be erased on re- 


.turn to Basic. 


The next section, called NEW, 
continues with the main task of 


moving the ghosts nearer to pac- 
man. Pacman coordinates, x and 
y are placed in registers B,C 
(lines 220-260). IX is now incre- 
mented ready for “а” (next vari- 
able in the DATA list). The new 
cordinates are updated in the se- 
quence seen in the third line of 
DATA, with the NEW loop being 
terminated by testing for end of 
data (lines 280-295). 

The y,x coordinates of each 
ghost in turn are set up in regis- 
ters DE (lines 296-330). Lines 340- 
540 (XTEST) manipulate the x 
coordinate in E. First, we need to 
know x(ghost) - xipacman). The 3 
possibilities are contrc ‘led as fol- 
lows: 

a) x(pacman) - x(ghost): move to 
YTEST 


b) x(pacman) < x(ghost): move to 
DECX (decrement x(ghost)) 

C) X(pacman) > x(ghcs': move to 
INCX (increment x(ghost)) 

INCX (lines 410-460): The AT- 
TRibute subroutine is called 
using the current y(ghost) with 
the increased x(ghost). CP 6 (line 
430) compares the attributes at 
the new position (held in register 
from ATTR) with the code for yel- 
low ink on black paper (which 
indicates a wall). 

À non zero result means that 
the new x(ghost) is valid, so con- 
trol moves to ENDX (line 440). A 
zero result means collision with a 
wall, so line 450 DECrements 
x(ghost) back to where it was. 


Control then moves to YTEST. 
DECX (lines 470-520) does the 
same as INX in the opposite 
sense. Lines 530-540 (ENDX) ter- 
minate the XTEST section with a 
CALL SCAN to get the new 
x(ghost) entered into VARS (line 
540). 

The last section, YTEST (lines 
550-750) update y(ghost) in the 
same way as XTEST works on 
x(ghost). 

Finally, END (lines 760-800), in- 
crements IX ready for the next 
ghost variables to be read. More 
important, it changes the attri- 
butes at the new ghost position 
just calculated to make the ghost 
look like a wall, at least until it is 
printed as a ghost on return to 
Basic. This prevents other ghosts 
from occupying the same posi- 
tion. 


